home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSO2003 OTL 4 .xpl < prev    next >
Text File  |  2004-01-16  |  2KB  |  54 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 2003\Outlook"
  5. "NAME"="Minimize to Tray"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display Outlook minimized in the tray"
  9. "DESCRIPTION 1"="Normally, when Outlook is minimized, it minimizes to the taskbar."
  10. "DESCRIPTION 2"="If this option is activated, Outlook minimizes to the tray (the area where the clock is located, bottom-right)."
  11. "DESCRIPTION 3"="For users that always use Outlook this can save some clutter in the taskbar."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
  15. "COMMENT 1"="found on website of Merill Fernando {Thinking in .NET!}"
  16.  
  17.  
  18.  
  19. 'Declaration of some constants
  20. sV1="HKCU\Software\Microsoft\Office\11.0\Outlook\Preferences\MinToTray" 'DW: 1
  21. sPCheck="HKCU\Software\Microsoft\Office\11.0\Outlook\"
  22.  
  23. Sub Plugin_Initialize 
  24. if RegPathExists(sPCheck) then
  25.    i=RegReadValue(sV1)
  26.    if i=1 then SetUIElement 1,true
  27. else
  28.    Disable()
  29. end if
  30. END SUB
  31.  
  32. 'Called when the Plugin should validate the Data the user has entered
  33. SUB Plugin_CheckData(ElementIndex)
  34. END SUB
  35.  
  36. 'Called when the Plugin should apply the changes
  37. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  b=GetUIElement(1)
  39.  if b=true then
  40.     Call RegWriteValue(sV1,"1",2)
  41.  else
  42.     if RegValueExists(sV1) then
  43.        Call RegDeleteValue(sV1)
  44.     end if
  45.  end if
  46.  
  47.  
  48.  
  49. END SUB
  50.  
  51. 'Called when the Plugin is about to be removed from memory
  52. SUB Plugin_Terminate
  53. END SUB
  54.